100 POKE53281,0:POKE53280,0:PRINT"[155][147]";
110 PRINT SPC(10)"[204]IBRARY-[204]ISTER [214]1.0"
120 PRINT SPC(9)"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":PRINT
130 PRINT"[151]([152][195][151]) BY [152][205]ARC [155]'[194]LACK[202]ACK' [152][210]INTSCH [151]IN 1998":PRINT:PRINT
300 INPUT"[204]IBRARY-[206]AME ";N$
310 N$=N$+".LBR"
320 OPEN2,8,2,N$+",S,R"
330 INPUT#2,ID$:PRINT:PRINT
340 IF LEFT$(ID$,3)<>"DWB" THEN PRINT"[206]O [204]IBRARY!":CLOSE2:END
350 NR=VAL(MID$(ID$,4))
360 PRINT NR;"FILES IN LIBRARY ";N$
370 PRINT:PRINT "[206]AME               [212]YP [194]YTES  [194]LOCKS":PRINT
380 FOR I=1 TO NR
390 :  INPUT#2,F$,T$,S$
400 :  PRINT CHR$(34);F$;CHR$(34);SPC(18-LEN(F$));T$;"  ";S$;SPC(6-LEN(S$));
410 :  S=VAL(S$)
420 :  PRINT INT(S/254)+1
425 :  B=B+S:BL=BL+INT(S/254)+1
430 NEXT
600 PRINT:PRINT"TOTAL SIZE =";B;"BYTES (=";BL;"BLOCKS)"
900 CLOSE2